home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / SPACEVIK.DSK / SHIP # 3 I.D..bas < prev    next >
BASIC Source File  |  2014-09-09  |  2KB  |  28 lines
  1. 0  ONERR  GOTO 63999
  2. 2  POKE 974,32
  3. 5  HOME 
  4. 10  POKE 38151,0: POKE 32,0: POKE 33,40: POKE 34,0: POKE 35,16: FOR J = 1 TO 16: VTAB J: HTAB 1: PRINT "                                        ": NEXT : VTAB 1
  5. 12  HCOLOR= 1: HPLOT 1,1 TO 161,1 TO 161,123 TO 1,123 TO 1,1
  6. 13  FOR J = 7 TO 161  STEP 5: HPLOT J,1 TO J,123: NEXT 
  7. 14  FOR J = 5 TO 123  STEP 5: HPLOT 1,J TO 161,J: NEXT 
  8. 20  HCOLOR= 3:X1 = 80:Y1 = 40
  9. 25  GOTO 1000
  10. 30  DATA    1,-25,0,2,20,15,2,20,-15,2,-25,0,2,5,0,2,20,15,1,5,0,2,20,-15,1,5,0,2,15,4,1,5,0,2,15,-4,1,20,-5,2,15,-5,2,15,5,2,20,5,1,15,1,2, 18,1,1,15,-1,2,18,-1,2,18,-4,2,20,-4,1,20,4,2,18,4,2,18,-4,2,20,-4 
  11. 40  DATA  1,19,-3,2,19,-1,1,16,4,2,17,4,2,17,3,2,16,3,2,16,4,1,16,-2,2,16,-4,2,18,-4,2,18,-3,2,17,-3,2,17,-2,2,16,-2,1,-5,3,2,-5,-3,2,1,-3,2,1,3,2,-5,3
  12. 45  DATA  77
  13. 50  DATA  1,-25,0,2,5,1,2,15,4,2,20,4,2,20,2,2,5,1,1,15,4,2,15,2,1,15,4,2,18,7,2,20,7,2,20,4,1,18,7,2,18,9,2,20,9,2,20,7,1,19,9,2,19,10
  14. 60  DATA  1,19,8,1,17,4,2,17,5,2,19,5,2,19,4,1,-25,0,2,20,0,1,20,2,2,20,-2,2,-25,-.5
  15. 70  DATA  1,-5,-.5,2,2,-.5,2,2,-1,1,-5,-.5,2,-5,-1
  16. 140  DATA  127
  17. 1000  READ C
  18. 1003  IF C = 77  THEN Y1 = 100: GOTO 1000
  19. 1005  IF C = 127  THEN 1060
  20. 1010  READ X,Y
  21. 1020 X = X1 -(X *2):Y = Y1 -(Y *2)
  22. 1030  IF C = 1  THEN  HPLOT X,Y
  23. 1040  IF C = 2  THEN  HPLOT  TO X,Y
  24. 1050  GOTO 1000
  25. 1060  VTAB 1: HTAB 25: PRINT "-SHIP I.D.-": VTAB 3: HTAB 25: PRINT "LIGHT CRUISER": VTAB 5: HTAB 25: PRINT "WITH LASERS,": VTAB 7: HTAB 25: PRINT "MISSILES AND": VTAB 9: HTAB 25: PRINT "FIGHTER COVER.": VTAB 10: HTAB 25: GET A$
  26. 1065  PRINT " "
  27. 1070  PRINT "<CTRL-D>RUN RADAR"
  28. 63999  PRINT : PRINT "<CTRL-D>INT"